﻿Namespace Exceptions
    Public Class LSWFrameworkException
        Inherits Exception

        Private BaseEx As Exception

        Public Sub New(ex As Exception)
            BaseEx = ex
        End Sub

        Public Sub New(message As String)
            MyClass.New(New Exception(message))
        End Sub

        Public Overrides Function GetBaseException() As Exception
            Return BaseEx
        End Function

        Public Overrides ReadOnly Property Message As String
            Get
                Return BaseEx.Message
            End Get
        End Property
    End Class
End Namespace